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-IDENT ‘v04-000' 


MPARRRARAAAAASALALALALASALALALESALE SESSA SERA SESE EERE EERE RES RRS ERS R ARES RRS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ae  iecke 1 FURNISHED UNDER A LICENSE AND MAY BE USED AND tt 
rut ton Se te : ANCE WITH THE TERMS OF aye” Liat - iby AL 44 


a 
7 
® 
* 
* 
* 
* 
0 & 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
* 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. 
a 

ITY FOR THE USE OR RELIABILITY OF ITS ~ 
® 

a 

* 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
SOFTWARE ON EQUIPMENT WHICH IS 


* e@eeneeeeee ee eee eee eeaeane 


MARA SBAAASAAAASALASALALALAALALALASALAAASASARSASER ESAS ESA A ALAS ASSL AAR RAS SO OS 


@saeeeeetee ee eee eeeeeeenne 


ob 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


-SBTTL DECLARATIONS 
INCLUDE FILES: 


+ 
+ 


7 
! MACROS: ; 
’ ; Al 
; Define the format of device messages that contain fields of a FAB j@ 
SDEFINI DEVMSG : 
Y 
SDEF DEVMSGSL_TYPE an itype of device message | E 
SDEF DEVMSGSL_BFRSIZ ee Master buffer size | : 
SDEF DEVMSGSL_ALQ mae te sallocation quantity | ia 
SDEF DEVMSGSL_FOP a ifile processing options | : 
SDEF DEVMSGSL_MRN pes ;maximum record number 
SDEF DEVMSG$W_DEQ pe sdefault extension quantity | see 
SDEF DEVMSGSW_BLS sblock size 
-BLKW 1 


SDEF DEVMSGSW_MRS smaximum record size 


SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
SDEF 
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DEVMSG$B_BKS 
DEVMSG$B_FSZ 
DEVMSG$B_ORG 
DEVMSG$B_RAT 
DEVMSGSB_RFM 
DEVMSGSB_FNS 
DEVMSG$T_FN 


SDEFEND DEVMSG 


-BLKW 
-BLKB 
-BLKB 
-BLKB 
-BLKB 
-BLKB 
-BLKB 


-BLKB 


' bucket size 

1 

1 ifile organization 

1 srecord attributes 

1 record format 

1 :file spec string size 
file specification string 

64 


M 
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: EQUATED SYMBOLS: 


> OWN STORAGE: 
.PSECT SLVDATA RD,WRT,NOEXE 
SLVF AB: 
FAC = <B10,GET,PUT> 
SLVRAB: 


$RAB FAB = SLVFAB = 
= 
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~SBTTL OPEN/CREATE == OPEN DISK FILE 


+ 
> 


FUNCTIONAL DESCRIPTION: 


SLV- CR ae creates file cnet is te rg data sent by Master. 
S ieee an already existing file that contains data to be 


Both we Bt these "rout ines must initialize the FAB with fields sent 
over from the Master containing information about the file. 
CALLING SEQUENCE: 

NONE 
INPUT PARAMETERS: 

DEVMSG = 4 the device msg containing FAB field 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

STATUS = 8 pstatus of call 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 


Sete Ge Ge Ge Ge oe Sa Se Se Se Oe Oe Oe Oe Ge Se Fe Oe Oe oe 
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-PSECT SLVCODE EXE ,NOWRT 

-ENTRY BV CREATE “M<R6,R7,RB,RI> 

MOVL wi, R reste, flag 

MOVAL SLVFAB, R6 3R6 <- sias Of re 

MOVAL SLVRAB, RI :R9 <= addr of RAB 

BRR COMMON _F AB :join common OF AB fields code 

ENTRY oe “MCR6, R7, ne. R9> 

CLRL R en’ flag 

MOVAL SLVFAB, R6 Ag <= addr of FAB 
MOVAL SLVRAB, R9 3R9 <= addr of RAB 


; Move the fields that are common inputs for both the SOPEN and the 
; SCREATE routines from the device message into the FAB. 


} 
COMMON _F AB: | 
MOVL DEVMSG(AP), R7 3R7 <= addr of device message 
DEVMSGS$B FNS (Ry). FABSB_FNS(R6) | 

} 


MOVB 
MOVAL 4 VMSGST_FN(R FABSL_FNA(R6) 
BLBS » CREATFILE zbranch to create file 


: Come here to open the file. 


ooo ——— 
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; Must create the file. Copy remaining input to SCREATE fields. 


CREATFILE: 
VL 


"0 pe vase L_ALQ(R7), PABST OS (RO) 

MOVL DEVMSGSL_FOP(R7), FABSL Af P(R6) 

MOVL 4 hat LLMRN(R7), FABSL_MRN(RO) 

MOV Vasey BLS {R0}. FABSW_BLS(R6) 
DEVMSGSW_DEQ(R7), FABSW_DEQ(R6) 
DEVMSGSW_MRS(R7), FABSW_MRS(R6) 

*OVB DEVMSG$B_BKS(R7), FABSB_BKS(R6) 

MOvB DEVMSG$B_FSZ(R7), FABSB_FSZ(R6) 

MOVB DEVMSG$B_ORG(R7), FABSB_ORG(R6) 

MOVB DEVMSGS$B_RAT(R7), FABSB_RAT(R6) 

MOVB DEVMSGSB_RFM(R7), FABSB_RFM(R6) 

; Create the file. 
SCREATE FAB = (R6) 
BLBC RO, STAT 
SUCCESS: sfile open/create successful 
SCONNECT RAB = (R9) 
STAT: 
4 RO, @STATUS(AP) istore status 
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A -SBTTL CLOSE 
FUNCTIONAL DESCRIPTION: 


| 
| 
| 
. NTR stv CLOS “M<R2,R3> | 
aby VFABS Rs :R3 <= addr of FAB 

ROVAL StVRAB. R tR2 <= addr of RAB | 

| 


Mt sean T RAB = (R2) 
BLBC . 108 


SCLOSE FAB = (R3) 


10$: RET 
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-SBTTL _READ 
;¢¢ 
>; FUNCTIONAL DESCRIPTION: . | 
SLV_READ is called when the slave must read a buffer 


: NONE | 

: INPUT PARAMETERS: 

: BFRADR = 4 saddress of user buffer 
BFRSIZ = 8 ssize in ortes of user buffer 
SUCCOMP = 12 saddress of success completion routine 
ERRCOMP = 16 saddress of error completion routine 

t OUTPUT PARAMETERS: | 

‘ STATUS = 20 pstatus of call | 

COMPLETION CODES: 

NONE 
SIDE EFFECTS: 


-ENTRY SLV_READ 0 
MOVAL SLVRAB, R1 R1 <= addr of RAB 


INI_RAB: 
. MOVL BFRADR(AP), RABSL_UBF(R1) 
MOVW @BFRSIZ(AP), RAB$Q_USZ(R1) 


; Issue the read. 
SREAD RAB = (R1) - 


SUC = @SUCCOMP(AP) - 
ERR = @ERRCOMP(AP) 


ot RO, @STATUS(AP) store status 


| 
| 
: Copy buffer address and size into appropriate fields in RAB 
| 
| 
| 


-SBTTL _WRITE 

; "FUNCTIONAL DESCRIPTION: 

; SLV_WRITE is called when slave must write a buffer 
; CALLING SEQUENCE: 


NONE 

; INPUT PARAMETERS: 
BFRADR = 4 saddress of user buffer 
BFRSIZ = 8 ssize of user buffer 
SUCCOMP = 1 ssuccess completion routine 
ERRCOMP = 1 serror completion routine 


: OUTPUT PARAMETERS: 


STATUS = 20 status of call 
COMPLETION CODES: 
; NONE 
; SIDE EFFECTS: 
3 NONE 
v3 SENTRY SLV WRITE 0 


MOVAL SLVRAB, R 


: Copy buffer address and size into appropriate fields in RAB. 


INIT_RAB: 
MOVL has oh yA RABSL_RBF (R1) saddress of user buffer 
MOVW RSIZ(A APSR ABSO'R RSZ(R1) zsize of user buffer 


: Issue the write. 
SWR'TE RAB = (R1) = 
SUC = SSUCCOMPCAP 
ERR = @ERRCOMP(AP 


MOVL RO, @STATUS(AP) 
RET 


)e- 
) 
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wef 


-SBTTL GETBYTCNT 
FUNCTIONAL DESCRIPTION: 

Get the byte count of the most recent transfer from the RAB. 
INPUT PARAMETERS: 

NONE 
OUTPUT PARAMETERS: 


+ 
> 


-ENTRY GETBYTCNT 0 

MOVAL SLVR ;R1 <= addr of RAB 

MOVZ7WL RABSW SPaSTCRI), RO # bytes read into lest buffer 
RET 


~SBTTL GETRMSTAT 
3+ 
; Get RMS completion status 


-ENTRY GETRMSTAT 0 
MOVAL SLVRAB 3;R1 <= addr of RAB 
MOVL RABSL BersiRID, RO tcompletion status 


RET 


This is a function subroutine; it returns the byte count in RO. 


H 
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eee ee ee eee ee eee eeeeeeane 


one -SBTTL _COPYFAB 
; FUNCTIONAL DESCRIPTION: 
SLV_COPYFAB creates a file attributes device message 
CALLING SEQUENCE: 

NONE 

; INPUT PARAMETERS: 
DEVMSG = 4 

; IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

NONE 


-ENTRY SLV_COPYFAB “M<R6,R7> 


MOVAL SLVFAB 3R7 <= addr of FAB 
MOVL at Vieetany. R6 Ré <- addr of DEVMSG 


> move necessary fields from FAB into DEVMSG 


mov! —-FABSL_ALQ(R7), DEVNSGSL_ALQ(RG) 
MOVL —-FABSL-FOP( RZ), DEVMSGSL_FOP(R6) 
MOVL FABSLTMRNCR ): SG$L—MRN(RO) 

FABSW-DEQ(R7), SG$W~DEQ(R6) 
MOVY FABSWTBLS(R7). DEVMSGS$W~BLS(RO) 
MOVW FABSWIMRS(R7). DEVMSGSW_MRS (RO) 
MOVE = FABSB~BKS(R7), 5G6$B~BKS (RO) 
MOVB = FABSB~FSZ(R7). DEVMSG$B_BKS (RO) 
MOVE —FABSB-ORG(R7), DEVMSGSB-ORG(RO) 
WOVE —FABSB_RAT(R?), DEVMSGSB_RAT (RO) 
MOVB  FABSB"RFM(R7). DEVMSGSB_RFM(RO) 
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.SBTTL 
SM_MSG_ERROR : 
. LONG 


eENTRY 
ERR_ENTRY: 
MOVAL 


SLV_RMSERR 


10 
SLV_RMSERR 
SLV 


16-SEP-1984 17:06:14.18 Page 12 


; arr r status 
device eg: e code 
; error stop s ave transfer 


wef 
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